Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/lisp/clx.lha/clx/debug/describe.l

Lisp/Scheme | 1988-09-12 | 25KB | 1,244 lines

;;; -*- Mode: Lisp; Package: XLIB; Syntax: COMMON-LISP; Base: 10; Lowercase: Yes; -*-

;;; Describe X11 protocol requests

;;;
;;;             TEXAS INSTRUMENTS INCORPORATED
;;;                  P.O. BOX 2909
;;;                   AUSTIN, TEXAS 78769
;;;
;;; Copyright (C) 1987 Texas Instruments Incorporated.
;;;
;;; Permission is granted to any individual or institution to use, copy, modify,
;;; and distribute this software, provided that this complete copyright and
;;; permission notice is maintained, intact, in all copies and supporting
;;; documentation.
;;;
;;; Texas Instruments Incorporated provides this software "as is" without
;;; express or implied warranty.
;;;

;;; Created 07/15/87 by LaMott G. OREN

(in-package "XLIB" :use '("LISP"))

(defparameter *request-parameters* (make-array (length *request-names*)))

(defmacro x-request (name &rest fields)
  (unless (zerop (mod (length fields) 3))
    (format t "~%Field length not a multiple of 3 for ~a" name))
  (let ((request (position name *request-names* :test #'zetalisp:string-equal)))
     (if request
     `(setf (aref *request-parameters* ,request) ',fields)
       `(format t "~%~s isn't an X11 request name" ',name))))

(defun print-history-description (buffer &optional (start 0))
  ;; Display an output history
  (reading-event (buffer)
    (LET ((request (card8-get start))
      (LENGTH (* 4 (card16-get (+ start 2))))
      (margin 5))
      (format t "~a (~d) length ~d"
          (request-name request) request length)
      (WHEN (>= request (LENGTH *request-parameters*))
    (SETQ request 0))
      (do ((parms (aref *request-parameters* request) (cdddr parms))
       (j start))
      ((OR (endp parms) (>= j length)))
    (let ((len (first parms))
          (type (second parms))
          (doc (third parms))
          value)
      (setq value (case len
            (1 (card8-get j))
            (2 (card16-get j))
            (4 (card32-get j))))
      (FORMAT t "~%~v@t" margin)
      (if value
          (PROGN
        (print-value j value type doc)
             (incf j len))
        (PROGN
          (format t "~2d ~10a ~a"
              j type doc)
          (case type
        ((listofvalue listofcard32 listofatom)
         (format t " Words:~%~v@t" margin)
         (dotimes (k (floor (- length (- j start)) 4))
           (format t " ~d" (card32-get j))
           (incf j 4)))
        (listofrectangle
         (format t " Half-Words:~%~v@t" margin)
         (dotimes (k (floor (- length (- j start)) 2))
           (format t " ~d" (card16-get j))
           (incf j 2)))
        (x (WHEN (INTEGERP len) (INCF j len)))    ; Unused
        (STRING8
         (format t " Bytes:~%~v@t" margin)
         (dotimes (k (- length (- j start)))
           (format t "~a" (INT-CHAR (card8-get j)))
           (incf j)))
        (otherwise
         (format t " Bytes:~%~v@t" margin)
         (dotimes (k (- length (- j start)))
           (format t " ~d" (card8-get j))
           (incf j)))))))))))

(defun print-value (i value type doc &aux temp)
  (format t "~2d ~3d " i value)
  (if (consp type)
      (case (first type)
    (bitmask (format t "~a" (decode-mask (symbol-value (second type)) value))
         (setq type (car type)))
    (member (if (null (setq temp (nth value (cdr type))))
            (format t "*****ERROR*****")
          (format t "~a" temp)
          (setq type (car type)))))
    (case type
      ((window pixmap drawable cursor font gcontext colormap atom)
       (format t "[#x~x]" value)
       #+comment
       (let ((temp (lookup-resource-id display value)))
     (when (eq (first type) 'atom)
       (setq temp (lookup-xatom display value)))
     (when temp (format t " (~s)" (type-of temp)))))
      (int16 (setq temp (card16->int16 value))
         (when (minusp temp) (format t "~d" temp)))
      (otherwise
       (when (and (numberp type) (not (= type value)))
     (format t "*****ERROR*****")))))
  (format t "~30,10t ~10a ~a" type doc))

(x-request Error
   1    1            opcode
   1    CARD8            data
   2    8+n            request-length
   n    LISTofBYTE        data
   )

(x-request CreateWindow
   1    1            opcode
   1    CARD8            depth
   2    8+n            request-length
   4    WINDOW            wid
   4    WINDOW            parent
   2    INT16            x
   2    INT16            y
   2    CARD16            width
   2    CARD16            height
   2    CARD16            border-width
   2    (MEMBER CopyFromParent InputOutput InputOnly) class
   4    (OR (MEMBER CopyFromParent) VISUALID)        visual
   4    (BITMASK *create-bitmask*) value-mask
  4n    LISTofVALUE        value-list
  )

(DEFPARAMETER *create-bitmask*
          #(background-pixmap background-pixel border-pixmap border-pixel bit-gravity
        win-gravity backing-store backing-planes backing-pixel override-redirect
        save-under event-mask do-not-propagate-mask colormap cursor))

(x-request ChangeWindowAttributes
   1    2            opcode
   1    x            unused
   2    3+n            request-length
   4    WINDOW            window
   4    (BITMASK *create-bitmask*) value-mask
  4n    LISTofVALUE        value-list
  )

(x-request GetWindowAttributes
   1    3            opcode
   1    x            unused
   2    2            request-length
   4    WINDOW            window
)

(x-request DestroyWindow
   1    4            opcode
   1    x            unused
   2    2            request-length
   4    WINDOW            window
)

(x-request DestroySubwindows
   1    5            opcode
   1    x            unused
   2    2            request-length
   4    WINDOW            window
)

(x-request ChangeSaveSet
   1    6            opcode
   1    (MEMBER insert delete)    mode
   2    2            request-length
   4    WINDOW            window
)

(x-request ReparentWindow
  1    7            opcode
   1    x            unused
   2    4            request-length
   4    WINDOW            window
   4    WINDOW            parent
   2    INT16            x
   2    INT16            y
)

(x-request MapWindow
   1    8            opcode
   1    x            unused
   2    2            request-length
   4    WINDOW            window
)

(x-request MapSubwindows
   1    9            opcode
   1    x            unused
   2    2            request-length
   4    WINDOW            window
)

(x-request UnmapWindow
   1    10            opcode
   1    x            unused
   2    2            request-length
   4    WINDOW            window
)

(x-request UnmapSubwindows
   1    11            opcode
   1    x            unused
   2    2            request-length
   4    WINDOW            window
)

(x-request ConfigureWindow
   1    12            opcode
   1    x            unused
   2    3+n            request-length
   4    WINDOW            window
   2    BITMASK            value-mask
   2    x            unused
  4n    LISTofVALUE        value-list
)

(x-request CirculateWindow
   1    13            opcode
   1    (MEMBER RaiseLowest LowerHighest) direction
   2    2            request-length
   4    WINDOW            window
)

(x-request GetGeometry
   1    14            opcode
   1    x            unused
   2    2            request-length
   4    DRAWABLE        drawable
)

(x-request QueryTree
   1    15            opcode
   1    x            unused
   2    2            request-length
   4    WINDOW            window
)

(x-request InternAtom
   1    16            opcode
   1    BOOL            only-if-exists
   2    |2+(n+p)/4|        request-length
   2    n            length-of-name
   2    x            unused
   n    STRING8            name
   p    x            unused
)

(x-request GetAtomName
   1    17            opcode
   1    x            unused
   2    2            request-length
   4    ATOM            atom
)

(x-request ChangeProperty
   1    18            opcode
   1    (MEMBER replace prepend append)    mode
   2    |6+(n+p)/4|        request-length
   4    WINDOW            window
   4    ATOM            property
   4    ATOM            type
   1    CARD8            format
   3    x            unused
   4    CARD32            length-of-data-in-format-units
   n    LISTofBYTE        data
   p    x            unused
)

(x-request DeleteProperty
   1    19            opcode
   1    x            unused
   2    3            request-length
   4    WINDOW            window
   4    ATOM            property
)

(x-request GetProperty
   1    20            opcode
   1    BOOL            delete
   2    6            request-length
   4    WINDOW            window
   4    ATOM            property
   4    (OR (MEMBER anypropertytype) ATOM) type
   4    CARD32            long-offset
   4    CARD32            long-length
)

(x-request ListProperties
   1    21            opcode
   1    x            unused
   2    2            request-length
   4    WINDOW            window
)

(x-request SetSelectionOwner
   1    22            opcode
   1    x            unused
   2    4            request-length
   4    (OR (MEMBER none) WINDOW) owner
   4    ATOM            selection
   4    (OR (MEMBER currenttime) TIMESTAMP) time
)

(x-request GetSelectionOwner
   1    23            opcode
   1    x            unused
   2    2            request-length
   4    ATOM            selection
)

(x-request ConvertSelection
   1    24            opcode
   1    x            unused
   2    6            request-length
   4    WINDOW            requestor
   4    ATOM            selection
   4    ATOM            target
   4    (OR (MEMBER none) ATOM)    property
   4    (OR (MEMBER currenttime) TIMESTAMP) time
)

(x-request SendEvent
   1    25            opcode
   1    BOOL            propagate
   2    11            request-length
   4    (OR (MEMBER pointerwindow inputfocus) WINDOW) destination
   4    SETofEVENT        event-mask
  32    n            event
)

(x-request GrabPointer
   1    26            opcode
   1    BOOL            owner-events
   2    6            request-length
   4    WINDOW            grab-window
   2    SETofPOINTEREVENT    event-mask
   1    (MEMBER Synchronous Asynchronous) pointer-mode
   1    (MEMBER Synchronous Asynchronous) keyboard-mode
   4    (OR (MEMBER none) WINDOW) confine-to
   4    (OR (MEMBER none) CURSOR) cursor
   4    (OR (MEMBER currenttime) TIMESTAMP) timestamp
)

(x-request UngrabPointer
   1    27            opcode
   1    x            unused
   2    2            request-length
   4    (OR (MEMBER currenttime) TIMESTAMP) time
)

(x-request GrabButton
   1    28            opcode
   1    BOOL            owner-events
   2    6            request-length
   4    WINDOW            grab-window
   2    SETofPOINTEREVENT    event-mask
   1    (MEMBER Synchronous Asynchronous) pointer-mode
   1    (MEMBER Synchronous Asynchronous) keyboard-mode
   4    (OR (MEMBER none) WINDOW) confine-to
   4    (OR (MEMBER none) CURSOR) cursor
   1    (OR (MEMBER anybutton) BUTTON)button
   1    x            unused
   2    SETofKEYMASK        modifiers
)

(x-request UngrabButton
   1    29            opcode
   1    (OR (MEMBER anybutton) BUTTON) button
   2    3            request-length
   4    WINDOW            grab-window
   2    SETofKEYMASK        modifiers
   2    x            unused
)

(x-request ChangeActivePointerGrab
   1    30            opcode
   1    x            unused
   2    4            request-length
   4    (OR (MEMBER none) CURSOR) cursor
   4    (OR (MEMBER currenttime) TIMESTAMP) time
   2    SETofPOINTEREVENT    event-mask
   2    x            unused
)

(x-request GrabKeyboard
   1    31            opcode
   1    BOOL            owner-events
   2    4            request-length
   4    WINDOW            grab-window
   4    (OR (MEMBER currenttime) TIMESTAMP) time
   1    (MEMBER Synchronous Asynchronous) pointer-mode
   1    (MEMBER Synchronous Asynchronous) keyboard-mode
   2    x            unused
)

(x-request UngrabKeyboard
   1    32            opcode
   1    x            unused
   2    2            request-length
   4    (OR (MEMBER currenttime) TIMESTAMP) time
)

(x-request GrabKey
   1    33            opcode
   1    BOOL            owner-events
   2    4            request-length
   4    WINDOW            grab-window
   2    SETofKEYMASK        modifiers
   1    (OR (MEMBER anykey) KEYCODE) key
   1    (MEMBER Synchronous Asynchronous) pointer-mode
   1    (MEMBER Synchronous Asynchronous) keyboard-mode
   3    x            unused
)

(x-request UngrabKey
   1    34            opcode
   1    (OR (MEMBER anykey) KEYCODE) key
   2    3            request-length
   4    WINDOW            grab-window
   2    SETofKEYMASK        modifiers
   2    x            unused
)

(x-request AllowEvents
   1    35            opcode
   1    (MEMBER AsyncPointer SyncPointer ReplayPointer AsyncKeyboard SyncKeyboard ReplayKeyboard) mode
   2    2            request-length
   4    (OR (MEMBER currenttime) TIMESTAMP) time
)

(x-request GrabServer
   1    36            opcode
   1    x            unused
   2    1            request-length
)

(x-request UngrabServer
   1    37            opcode
   1    x            unused
   2    1            request-length
)

(x-request QueryPointer
   1    38            opcode
   1    x            unused
   2    2            request-length
   4    WINDOW            window
)

(x-request GetMotionEvents
   1    39            opcode
   1    x            unused
   2    4            request-length
   4    WINDOW            window
   4    (OR (MEMBER CURRENTTIME) TIMESTAMP)        start
   4    (OR (MEMBER CURRENTTIME) TIMESTAMP)        stop
)

(x-request TranslateCoords
   1    40            opcode
   1    x            unused
   2    4            request-length
   4    WINDOW            src-window
   4    WINDOW            dst-window
   2    INT16            src-x
   2    INT16            src-y
)

(x-request WarpPointer
   1    41            opcode
   1    x            unused
   2    6            request-length
   4    (OR (MEMBER none) WINDOW)            src-window
   4    WINDOW            dst-window
   2    INT16            src-x
   2    INT16            src-y
   2    CARD16            src-width
   2    CARD16            src-height
   2    INT16            dst-x
   2    INT16            dst-y
)

(x-request SetInputFocus
   1    42            opcode
   1    (MEMBER none pointerroot parent) revert-to
   2    3            request-length
   4    (OR (MEMBER none pointerroot) WINDOW) focus
   4    (OR (MEMBER CURRENTTIME) TIMESTAMP)        time
)

(x-request GetInputFocus
   1    43            opcode
   1    x            unused
   2    1            request-length
)

(x-request QueryKeymap
   1    44            opcode
   1    x            unused
   2    1            request-length
)

(x-request OpenFont
   1    45            opcode
   1    x            unused
   2    |3+(n+p)/4|        request-length
   4    FONT            fid
   2    n            length-of-name
   2    x            unused
   n    STRING8            name
   p    x            unused
)

(x-request CloseFont
   1    46            opcode
   1    x            unused
   2    2            request-length
   4    FONT            font
)

(x-request QueryFont
   1    47            opcode
   1    x            unused
   2    2            request-length
   4    FONTABLE        font
)

(x-request QueryTextExtents
   1    48            opcode
   1    BOOL            odd-length-p
   2    |2+(2n+p)/4|        request-length
   4    FONTABLE        font
  2n    STRING16        string
   p    x            unused
)

(x-request ListFonts
   1    49            opcode
   1    x            unused
   2    |2+(n+p)/4|        request-length
   2    CARD16            max-names
   2    n            length-of-pattern
   n    STRING8            pattern
   p    x            unused
)

(x-request ListFontsWithInfo
   1    50            opcode
   1    x            unused
   2    |2+(n+p)/4|        request-length
   2    CARD16            max-names
   2    n            length-of-pattern
   n    STRING8            pattern
   p    x            unused
)

(x-request SetFontPath
   1    51            opcode
   1    x            unused
   2    |2+(n+p)/4|        request-length
   2    CARD16            number-of-STRs-in-path
   2    x            unused
   n    LISTofSTR        path
   p    x            unused
)

(x-request GetFontPath
   1    52            opcode
   1    x            unused
   2    1            request-list
)

(x-request CreatePixmap
   1    53            opcode
   1    CARD8            depth
   2    4            request-length
   4    PIXMAP            pid
   4    DRAWABLE        drawable
   2    CARD16            width
   2    CARD16            height
)

(x-request FreePixmap
   1    54            opcode
   1    x            unused
   2    2            request-length
   4    PIXMAP            pixmap
)

(x-request CreateGC
   1    55            opcode
   1    x            unused
   2    4+n            request-length
   4    GCONTEXT        cid
   4    DRAWABLE        drawable
   4    (BITMASK *gc-bitmask*)    value-mask
  4n    LISTofVALUE        value-list
)

(DEFCONSTANT *gc-bitmask*
         #(function plane-mask foreground
           background line-width line-style cap-style join-style
           fill-style fill-rule tile stipple tile-stipple-x-origin
           tile-stipple-y-origin font subwindow-mode graphics-exposures clip-x-origin
           clip-y-origin clip-mask dash-offset dashes arc-mode))


(x-request ChangeGC
   1    56            opcode
   1    x            unused
   2    3+n            request-length
   4    GCONTEXT        gc
   4    (BITMASK *gc-bitmask*)    value-mask
  4n    LISTofVALUE        value-list
)

(x-request CopyGC
   1    57            opcode
   1    x            unused
   2    4            request-length
   4    GCONTEXT        src-gc
   4    GCONTEXT        dst-gc
   4    (BITMASK *gc-bitmask*)    value-mask
)

(x-request SetDashes
   1    58            opcode
   1    x            unused
   2    |3+(n+p)/4|        request-length
   4    GCONTEXT        gc
   2    CARD16            dash-offset
   2    n            length-of-dashes
   n    LISTofCARD8        dashes
   p    x            unused
)

(x-request SetClipRectangles
   1    59            opcode
   1    (MEMBER UnSorted YSorted YXSorted YXBanded) ordering
   2    3+2n            request-length
   4    GCONTEXT        gc
   2    INT16            clip-x-origin
   2    INT16            clip-y-origin
  8n    LISTofRECTANGLE        rectangles
)

(x-request FreeGC
   1    60            opcode
   1    x            unused
   2    2            request-length
   4    GCONTEXT        gc
)

(x-request ClearToBackground
   1    61            opcode
   1    BOOL            exposures
   2    4            request-length
   4    WINDOW            window
   2    INT16            x
   2    INT16            y
   2    CARD16            width
   2    CARD16            height
)

(x-request CopyArea
   1    62            opcode
   1    x            unused
   2    7            request-length
   4    DRAWABLE        src-drawable
   4    DRAWABLE        dst-drawable
   4    GCONTEXT        gc
   2    INT16            src-x
   2    INT16            src-y
   2    INT16            dst-x
   2    INT16            dst-y
   2    CARD16            width
   2    CARD16            height
)

(x-request CopyPlane
   1    63            opcode
   1    x            unused
   2    8            request-length
   4    DRAWABLE        src-drawable
   4    DRAWABLE        dst-drawable
   4    GCONTEXT        gc
   2    INT16            src-x
   2    INT16            src-y
   2    INT16            dst-x
   2    INT16            dst-y
   2    CARD16            width
   2    CARD16            height
   4    CARD32            bit-plane
)

(x-request PolyPoint
   1    64            opcode
   1    (MEMBER origin previous) coordinate-mode
   2    3+n            request-length
   4    DRAWABLE        drawable
   4    GCONTEXT        gc
  4n    LISTofPOINT        points
)

(x-request PolyLine
   1    65            opcode
   1    (MEMBER origin previous) coordinate-mode
   2    3+n            request-length
   4    DRAWABLE        drawable
   4    GCONTEXT        gc
  4n    LISTofPOINT        points
)

(x-request PolySegment
   1    66            opcode
   1    x            unused
   2    3+2n            request-length
   4    DRAWABLE        drawable
   4    GCONTEXT        gc
  8n    LISTofSEGMENT        segments
)

(x-request PolyRectangle
   1    67            opcode
   1    x            unused
   2    3+2n            request-length
   4    DRAWABLE        drawable
   4    GCONTEXT        gc
  8n    LISTofRECTANGLE        rectangles
)

(x-request PolyArc
   1    68            opcode
   1    x            unused
   2    3+3n            request-length
   4    DRAWABLE        drawable
   4    GCONTEXT        gc
 12n    LISTofARC        arcs
)

(x-request FillPoly
   1    69            opcode
   1    x            unused
   2    4+n            request-length
   4    DRAWABLE        drawable
   4    GCONTEXT        gc
   1    (MEMBER complex nonconvex convex) shape
   1    (MEMBER origin previous) coordinate-mode
   2    x            unused
  4n    LISTofPOINT        points
)

(x-request PolyFillRectangle
   1    70            opcode
   1    x            unused
   2    3+2n            request-length
   4    DRAWABLE        drawable
   4    GCONTEXT        gc
  8n    LISTofRECTANGLE        rectangles
)

(x-request PolyFillArc
   1    71            opcode
   1    x            unused
   2    3+3n            request-length
   4    DRAWABLE        drawable
   4    GCONTEXT        gc
 12n    LISTofARC        arcs
)

(x-request PutImage
   1    72            opcode
   1    (bitmap xypixmap zpixmap) format
   2    |6+(n+p)/4|        request-length
   4    DRAWABLE        drawable
   4    GCONTEXT        gc
   2    CARD16            width
   2    CARD16            height
   2    INT16            dst-x
   2    INT16            dst-y
   1    CARD8            left-pad
   1    CARD8            depth
   2    x            unused
   n    LISTofBYTE        data
   p    x            unused
)

(x-request GetImage
   1    73            opcode
   1    (MEMBER error xypixmap zpixmap)    format
   2    5            request-length
   4    DRAWABLE        drawable
   2    INT16            x
   2    INT16            y
   2    CARD16            width
   2    CARD16            height
   4    CARD32            plane-mask
)

(x-request PolyText8
   1    74            opcode
   1    x            unused
   2    |4+(n+p)/4|        request-length
   4    DRAWABLE        drawable
   4    GCONTEXT        gc
   2    INT16            x
   2    INT16            y
   n    LISTofTEXTITEM8        items
   p    x            unused
)

(x-request PolyText16
   1    75            opcode
   1    x            unused
   2    |4+(n+p)/4|        request-length
   4    DRAWABLE        drawable
   4    GCONTEXT        gc
   2    INT16            x
   2    INT16            y
   n    LISTofTEXTITEM16    items
   p    x            unused
)

(x-request ImageText8
   1    76            opcode
   1    n            length-of-string
   2    |4+(n+p)/4|        request-length
   4    DRAWABLE        drawable
   4    GCONTEXT        gc
   2    INT16            x
   2    INT16            y
   n    STRING8            string
   p    x            unused
)

(x-request ImageText16
   1    77            opcode
   1    n            number-of-CHAR2Bs-in-string
   2    |4+(2n+p)/4|        request-length
   4    DRAWABLE        drawable
   4    GCONTEXT        gc
   2    INT16            x
   2    INT16            y
  2n    STRING16        string
   p    x            unused
)

(x-request CreateColormap
   1    78            opcode
   1    (MEMBER none all)    alloc
   2    4            request-length
   4    COLORMAP        mid
   4    WINDOW            window
   4    VISUALID        visual
)

(x-request FreeColormap
   1    79            opcode
   1    x            unused
   2    2            request-length
   4    COLORMAP        cmap
)

(x-request CopyColormapAndFree
   1    80            opcode
   1    x            unused
   2    3            request-length
   4    COLORMAP        mid
   4    COLORMAP        src-cmap
)

(x-request InstallColormap
   1    81            opcode
   1    x            unused
   2    2            request-length
   4    COLORMAP        cmap
)

(x-request UninstallColormap
   1    82            opcode
   1    x            unused
   2    2            request-length
   4    COLORMAP        cmap
)

(x-request ListInstalledColormaps
   1    83            opcode
   1    x            unused
   2    2            request-length
   4    WINDOW            window
)

(x-request AllocColor
   1    84            opcode
   1    x            unused
   2    4            request-length
   4    COLORMAP        cmap
   2    CARD16            red
   2    CARD16            green
   2    CARD16            blue
   2    x            unused
)

(x-request AllocNamedColor
   1    85            opcode
   1    x            unused
   2    |3+(n+p)/4|        request-length
   4    COLORMAP        cmap
   2    n            length-of-name
   2    x            unused
   n    STRING8            name
   p    x            unused
)

(x-request AllocColorCells
   1    86            opcode
   1    BOOL            contiguous
   2    3            request-length
   4    COLORMAP        cmap
   2    CARD16            colors
   2    CARD16            planes
)

(x-request AllocColorPlanes
   1    87            opcode
   1    BOOL            contiguous
   2    4            request-length
   4    COLORMAP        cmap
   2    CARD16            colors
   2    CARD16            reds
   2    CARD16            greens
   2    CARD16            blues
)

(x-request FreeColors
   1    88            opcode
   1    x            unused
   2    3+n            request-length
   4    COLORMAP        cmap
   4    CARD32            plane-mask
  4n    LISTofCARD32        pixels
)

(x-request StoreColors
   1    89            opcode
   1    x            unused
   2    2+3n            request-length
   4    COLORMAP        cmap
 12n    LISTofCOLORITEM        items
)

(x-request StoreNamedColor
   1    90            opcode
   1    color-mask        do-red_do-green_do-blue
   2    |4+(n+p)/4|        request-length
   4    COLORMAP        cmap
   4    CARD32            pixel
   2    n            length-of-name
   2    x            unused
   n    STRING8            name
   p    x            unused
)

(x-request QueryColors
   1    91            opcode
   1    x            unused
   2    2+n            request-length
   4    COLORMAP        cmap
  4n    LISTofCARD32        pixels
)

(x-request LookupColor
   1    92            opcode
   1    x            unused
   2    |3+(n+p)/4|        request-length
   4    COLORMAP        cmap
   2    n            length-of-name
   2    x            unused
   n    STRING8            name
   p    x            unused
)

(x-request CreateCursor
   1    93            opcode
   1    x            unused
   2    8            request-length
   4    CURSOR            cid
   4    PIXMAP            source
   4    (OR (MEMBER none) PIXMAP) mask
   2    CARD16            fore-red
   2    CARD16            fore-green
   2    CARD16            fore-blue
   2    CARD16            back-red
   2    CARD16            back-green
   2    CARD16            back-blue
   2    CARD16            x
   2    CARD16            y
)

(x-request CreateGlyphCursor
   1    94            CreateGlyphCursor
   1    x            unused
   2    8            request-length
   4    CURSOR            cid
   4    FONT            source-font
   4    (OR (MEMBER none) FONT)    mask-font
   2    CARD16            source-char
   2    CARD16            mask-char
   2    CARD16            fore-red
   2    CARD16            fore-green
   2    CARD16            fore-blue
   2    CARD16            back-red
   2    CARD16            back-green
   2    CARD16            back-blue
)

(x-request FreeCursor
   1    95            opcode
   1    x            unused
   2    2            request-length
   4    CURSOR            cursor
)

(x-request RecolorCursor
   1    96            opcode
   1    x            unused
   2    5            request-length
   4    CURSOR            cursor
   2    CARD16            fore-red
   2    CARD16            fore-green
   2    CARD16            fore-blue
   2    CARD16            back-red
   2    CARD16            back-green
   2    CARD16            back-blue
)

(x-request QueryBestSize
   1    97            opcode
   1    (MEMBER cursor tile stipple) class
   2    3            request-length
   4    DRAWABLE        drawable
   2    CARD16            width
   2    CARD16            height
)

(x-request QueryExtension
   1    98            opcode
   1    x            unused
   2    |2+(n+p)/4|        request-length
   2    n            length-of-name
   2    x            unused
   n    STRING8            name
   p    x            unused
)

(x-request ListExtensions
   1    99            opcode
   1    x            unused
   2    1            request-length
)

(x-request SetKeyboardMapping
   1    100            opcode
   1    n            keycode-count
   2    2+nm            request-length
   1    KEYCODE            first-keycode
   1    m            keysyms-per-keycode
   2    x            unused
 4nm    LISTofKEYSYM        keysyms
)

(x-request GetKeyboardMapping
   1    101            opcode
   1    x            unused
   2    2            request-length
   1    KEYCODE            first-keycode
   1    CARD8            count
   2    x            unused
)

(x-request ChangeKeyboardControl
   1    102            opcode
   1    x            unused
   2    2+n            request-length
   4    BITMASK            value-mask
  4n    LISTofVALUE        value-list
)

(x-request GetKeyboardControl
   1    103            opcode
   1    x            unused
   2    1            request-length
)

(x-request Bell
   1    104            opcode
   1    INT8            percent
   2    1            request-length
)

(x-request ChangePointerControl
   1    105            opcode
   1    x            unused
   2    3            request-length
   2    INT16            acceleration-numerator
   2    INT16            acceleration-denominator
   2    INT16            threshold
   1    BOOL            do-acceleration
   1    BOOL            do-threshold
)

(x-request GetPointerControl
   1    106            GetPointerControl
   1    x            unused
   2    1            request-length
)

(x-request SetScreenSaver
   1    107            opcode
   1    x            unused
   2    3            request-length
   2    INT16            timeout
   2    INT16            interval
   1    (MEMBER no yes default)    prefer-blanking
   1    (MEMBER no yes default)    allow-exposures
   2    x            unused
)

(x-request GetScreenSaver
   1    108            opcode
   1    x            unused
   2    1            request-length
)

(x-request ChangeHosts
   1    109            opcode
   1    (MEMBER insert delete)    mode
   2    |2+(n+p)/4|        request-length
   1    (MEMBER internet decnet chaos) family
   1    x            unused
   2    CARD16            length-of-address
   n    LISTofCARD8        address
   p    x            unused
)

(x-request ListHosts
   1    110            opcode
   1    x            unused
   2    1            request-length
)

(x-request ChangeAccessControl
   1    111            opcode
   1    (MEMBER disable enable)    mode
   2    1            request-length
)

(x-request ChangeCloseDownMode
   1    112            opcode
   1    (MEMBER destroy retainpermanent retaintemporary) mode
   2    1            request-length
)

(x-request KillClient
   1    113            opcode
   1    x            unused
   2    2            request-length
   4    (MEMBER alltemporary CARD32) resource
)

(x-request RotateProperties
   1    114            opcode
   1    x            unused
   2    3+n            request-length
   4    WINDOW            window
   2    n            number-of-properties
   2    INT16            delta
  4n    LISTofATOM        properties
)

(x-request ForceScreenSaver
   1    115            ForceScreenSaver
   1    (MEMBER reset activate)    mode
   2    1            request-length
)

(x-request SetPointerMapping
   1    116            opcode
   1    n            length-of-map
   2    |1+(n+p)/4|        request-length
   n    LISTofCARD8        map
   p    x            unused
)

(x-request GetPointerMapping
   1    117            opcode
   1    x            unused
   2    1            request-length
)

(x-request SetModifierMapping
   1    118            opcode
   1    KEYCODE            Lock
   2    5            request-length
   1    KEYCODE            Shift_A
   1    KEYCODE            Shift_B
   1    KEYCODE            Control_A
   1    KEYCODE            Control_B
   1    KEYCODE            Mod1_A
   1    KEYCODE            Mod1_B
   1    KEYCODE            Mod2_A
   1    KEYCODE            Mod2_B
   1    KEYCODE            Mod3_A
   1    KEYCODE            Mod3_B
   1    KEYCODE            Mod4_A
   1    KEYCODE            Mod4_B
   1    KEYCODE            Mod5_A
   1    KEYCODE            Mod5_B
   2    x            unused
)

(x-request GetModifierMapping
   1    119            opcode
   1    x            unused
   2    1            request-length
)

#+comment
(x-request NoOperation
   1    127            opcode
   1    x            unused
   2    1            request-length
)
;; End of file